home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
QRZ! Ham Radio 4
/
QRZ Ham Radio Callsign Database - Volume 4.iso
/
digests
/
space
/
940238.txt
< prev
next >
Wrap
Internet Message Format
|
1994-11-13
|
6KB
Date: Sat, 27 Aug 94 04:30:18 PDT
From: Ham-Space Mailing List and Newsgroup <ham-space@ucsd.edu>
Errors-To: Ham-Space-Errors@UCSD.Edu
Reply-To: Ham-Space@UCSD.Edu
Precedence: Bulk
Subject: Ham-Space Digest V94 #238
To: Ham-Space
Ham-Space Digest Sat, 27 Aug 94 Volume 94 : Issue 238
Today's Topics:
Converting Grid to Lat-Lon
QSL Route for RS-12 Robot
Send Replies or notes for publication to: <Ham-Space@UCSD.Edu>
Send subscription requests to: <Ham-Space-REQUEST@UCSD.Edu>
Problems you can't solve otherwise to brian@ucsd.edu.
Archives of past issues of the Ham-Space Digest are available
(by FTP only) from UCSD.Edu in directory "mailarchives/ham-space".
We trust that readers are intelligent enough to realize that all text
herein consists of personal comments and does not represent the official
policies or positions of any party. Your mileage may vary. So there.
----------------------------------------------------------------------
Date: 25 Aug 1994 13:00:33 -0700
From: nntp.crl.com!crl4.crl.com!not-for-mail@decwrl.dec.com
Subject: Converting Grid to Lat-Lon
To: ham-space@ucsd.edu
In article <9408250942.ZM25231@SALCIUS2>,
Wayne_Estes@csg.mot.com (Wayne_Estes) wrote:
> I'm looking for a DOS or Windows program that can:
>
> A. Convert 6-digit Maidenhead grid to Latitude/Longitude.
> B. Convert Latitude/Longitude to 6-digit Maidenhead grid.
Wayne -
The attached Quick BASIC program will perform the functions you
mentioned above. Sorry, I don't know who was the original author, so
can't give appropriate credits.
73 de Lou / N5SGL
--------------------------
'Grid Square <-> latitude/longitude conversion
'
START:
CLS : COLOR 0, 7: PRINT "GRID SQUARE LOCATOR": COLOR 7, 0: PRINT
PRINT "Which do you want to convert FROM?": PRINT
COLOR 0, 7: PRINT "L"; : COLOR 7, 0: PRINT "at/Lon ";
COLOR 0, 7: PRINT "G"; : COLOR 7, 0: PRINT "rid ";
COLOR 0, 7: PRINT "Q"; : COLOR 7, 0: PRINT "uit": PRINT
RPT1:
a$ = ""
DO
a$ = INKEY$
LOOP UNTIL a$ <> ""
IF UCASE$(a$) = "Q" THEN END
IF UCASE$(a$) = "L" THEN GOTO LL
IF UCASE$(a$) = "G" THEN GOTO GRID
GOTO RPT1
LL:
CLEAR : e9 = .000001
CLS : COLOR 0, 7: PRINT "LAT/LON": COLOR 7, 0: PRINT
PRINT "Enter SOUTH latitude and EAST longitude as NEGATIVE numbers."
PRINT
INPUT "LAT (DD.MM)"; l
IF l < -90 OR l > 90 THEN RUN
INPUT "LON (DDD.MM)"; o
IF o < -180 OR o > 180 THEN RUN
os = SGN(o): o = ABS(o): ls = SGN(l): l = ABS(l)
la = (INT(l) + (l - INT(l)) / .6) * ls
lo = (INT(o) + (o - INT(o)) / .6) * os
IF lo < 0 THEN lo = lo + 360
w3 = 180 - lo: IF w3 < 0 THEN w3 = w3 + 360
w1 = INT(w3 / 20 + e9)
w2 = INT((w3 - 20 * w1) / 2 + e9) + 48: w1 = w1 + 65
w3 = INT(24 * (w3 / 2 - INT(w3 / 2)) + e9) + 65
l1 = INT((la + 90) / 10 + e9): l2 = INT(la + 90 + e9 - 10 * l1)
l3 = INT((la + 90 - 10 * l1 - l2) * 24 + e9)
l1 = l1 + 65: l2 = l2 + 48: l3 = l3 + 65
g$ = CHR$(w1) + CHR$(l1) + CHR$(w2) + CHR$(l2) + CHR$(w3) + CHR$(l3)
PRINT : PRINT "Grid square = "; UCASE$(g$)
LOCATE 24, 1: PRINT "< Press a key to continue >";
a$ = "": DO: a$ = INKEY$: LOOP UNTIL a$ <> "": GOTO START
GRID:
CLEAR : e9 = .000001
CLS : COLOR 0, 7: PRINT "GRID SQUARE": COLOR 7, 0: PRINT
PRINT "Enter 2-, 4-, or 6-character grid square."
PRINT "Short ones will be optimized to center of square.": PRINT
INPUT "Grid square"; g$
g$ = UCASE$(g$)
l3 = LEN(g$): IF l3 < 2 OR l3 > 6 THEN RUN
IF l3 = 1 OR l3 = 3 OR l3 = 5 THEN RUN
SELECT CASE l3
CASE 2
g$ = g$ + "55LL"
CASE 4
g$ = g$ + "LL"
END SELECT
LOCATE CSRLIN - 1, 1: PRINT "Grid square = "; g$; " "
RESTORE
FOR x = 1 TO 6
READ y$, z$
t$ = MID$(g$, x, 1): IF t$ < y$ OR t$ > z$ THEN RUN
NEXT x
DATA A,R,A,S,0,9,0,9,A,X,A,X
w1 = ASC(LEFT$(g$, 1)) - 65
w2 = ASC(MID$(g$, 3, 1)) - 48
w3 = ASC(MID$(g$, 5, 1)) - 65
lo = 180 - 20 * w1 - 2 * w2 - w3 / 12 - 1 / 24
IF lo < 0 THEN lo = lo + 360
l1 = ASC(MID$(g$, 2, 1)) - 65
l2 = ASC(MID$(g$, 4, 1)) - 48
l3 = ASC(RIGHT$(g$, 1)) - 65
la = -90 + 10 * l1 + l2 + l3 / 24 + 1 / 48
IF lo > 180 THEN lo = lo - 360
ls = SGN(la): la = ABS(la)
l = (INT(la) + INT((la - INT(la)) * 60) / 100) * ls
os = SGN(lo): lo = ABS(lo)
o = (INT(lo) + INT((lo - INT(lo)) * 60) / 100) * os
PRINT
PRINT "LAT (DD.MM) ="; l
PRINT "LON (DDD.MM) ="; o
PRINT
PRINT "(SOUTH latitude and EAST longitude shown as negative numbers.)"
LOCATE 24, 1: PRINT "< Press a key to continue >";
a$ = "": DO: a$ = INKEY$: LOOP UNTIL a$ <> ""
GOTO START
------------------------------
Date: 25 Aug 1994 12:45:37 GMT
From: hatch.sonalysts.com!gerheim@uunet.uu.net
Subject: QSL Route for RS-12 Robot
To: ham-space@ucsd.edu
Does anyone know the QSL route for the RS-12 robot? I worked it a few
weeks ago, and don't recall the route. TNX,
--
***********************************************************************
Al Gerheim Sonalysts, Inc.
Email: gerheim@sonalysts.com 215 Parkway North
Work: (203)442-4355 Waterford CT 06385
***********************************************************************
------------------------------
End of Ham-Space Digest V94 #238
******************************